﻿Module G
    Dim _RutaReportes = Vales_Verificador_3.Verificador._RutaReportes
    Public Sub GuardarRecurso(Recurso As Object, Nombre As String)
        If IO.Directory.Exists(_RutaReportes) = False Then
            IO.Directory.CreateDirectory(_RutaReportes)
        End If
        Dim FileB() As Byte = Recurso
        If IO.Directory.Exists(_RutaReportes & "\RDLC") = False Then
            IO.Directory.CreateDirectory(_RutaReportes & "\RDLC")
        End If
        My.Computer.FileSystem.WriteAllBytes(_RutaReportes & "\RDLC\" & Nombre, FileB, True)
    End Sub
    Public Sub GuardarRecursoRutaApp(Recurso As Object, Nombre As String)
        If IO.Directory.Exists(_RutaReportes) = False Then
            IO.Directory.CreateDirectory(_RutaReportes)
        End If
        Dim FileB() As Byte = Recurso
        If IO.File.Exists(Application.StartupPath & "\" & Nombre) = False Then
            My.Computer.FileSystem.WriteAllBytes(Application.StartupPath & "\" & Nombre, FileB, True)
        End If

    End Sub
    Public Function FuncionSalir(Optional Accion As String = "salir") As Boolean
        Dim SinFechas As Long = 0
        Dim NoSurtidos As Long = 0

        Dim Msj = "¿Desea " & Accion & "?"

        If Verificador.DSvalesVendidos.ValesEscaneados.Rows.Count > 0 Then
            NoSurtidos = Vales_Verificador_3.Verificador.DSvalesVendidos.ValesEscaneados.Select("Surtido=0").Count
            If NoSurtidos > 0 Or Vales_Verificador_3.Verificador.DSvalesVendidos.ValesEscaneados.Select("surtido=0").Count > 0 Then
                If Accion = "salir" Then
                    Msj = "Hay vales activos en la lista, no puede " & Accion
                    MsgBox(Msj, MsgBoxStyle.Critical, "Error")
                    Return False
                End If
            End If
            SinFechas = Vales_Verificador_3.Verificador.DSvalesVendidos.ValesEscaneados.Select("fechasurtido ='Desconocido' or fechaventa ='Desconocido' or surtido=0").Count
            If SinFechas > 0 And Vales_Verificador_3.Verificador.DSvalesVendidos.ValesEscaneados.Select("fechasurtido ='Desconocido' or fechaventa ='Desconocido'").Count > 0 Then
                Msj = vbCrLf & Msj & "Hay vales " & SinFechas & " sin fecha de venta y/o fecha surtido, esta informacion es vital para los reportes de vales  ¿desea " & Accion & " sin proporcionar esta informacion?"
            End If
        End If

        Dim R = MsgBox(Msj, MsgBoxStyle.YesNo, "Pregunta")
        If R = MsgBoxResult.No Then
            Return False
        End If
        Return True
    End Function
    Enum TipoIcono
        Atencion
        Inforacion
        Errores
    End Enum
    Public Sub CreaMensaje(Titulo As String, Mensaje As String, Optional Icono As TipoIcono = TipoIcono.Atencion)

    End Sub
End Module
